home *** CD-ROM | disk | FTP | other *** search
- /*
- \funcref{fun\_itoa}{void fun\_itoa ()}
- {}
- {}
- {newvar(), xstrdup()}
- {fun\_atoi(), etc.}
- {funitoa.c}
- {
- This funtion converts the integer variable which was last pushed to a
- string variable. The {\em type} field of the last used stack position
- (this is {\em stack[sp]}) is set to {\em e\_str} and the {\em
- vu.str} field is assigned to hold the string representation of the
- {\em vu.intval} field.
- }
- */
-
- #include "icm-exec.h"
-
- void fun_itoa ()
- {
- char
- buffer [100];
- int
- val;
-
- val = stack [sp].vu.intval;
- stack [sp] = newvar (e_str);
- sprintf (buffer, "%d", val);
- stack [sp].vu.i->ls.str = xstrdup (buffer);
- }
-